home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / planetkit / amigaexe / irc / rexx / leave.amirx next >
Text File  |  1996-03-28  |  337b  |  19 lines
  1. /* LEAVE.AMIRX -- Leave a channel with a message
  2. \\ written by Oliver Wagner
  3. //
  4. \\ Put this script in PROGDIR:rexx/ and add this as an alias with the
  5. // command:  "/alias leave /rx leave %p"
  6. \\
  7. */
  8.  
  9. PARSE ARG ARGS
  10. OPTIONS RESULTS
  11.  
  12. if ARGS = "" then do
  13.    "echo P="d2c(27)"b«Error» Usage: LEAVE text"
  14.    exit
  15. end
  16.  
  17. 'say 'ARGS
  18. 'say /!leave'
  19.